1 REM MOVING WALLS
2 POKE53272,(PEEK(53272)AND240)OR14
10 POKE53280,4:POKE53281,1
15 JOY=56320:S=54272
20 PRINT"[147]";
30 FORT=1TO21:PRINT"[151] ";:NEXT
40 FORT=1TO20:PRINT"[157] ";:NEXT
50 FORT=1TO20:PRINT"[157][157] ";:NEXT
60 FORT=1TO20:PRINT"[145][157] ";:NEXT
65 PRINT"[197][216][201][212]"
68 PRINT"";
70 FORRT=1TO4:PRINT"[149][191][191][191][191]":NEXT
80 PRINT"[149][160][160][160][160][160][160][157][157][157][157][157][157]";
90 FORT=1TO10:PRINTT,"[157][157][160][157][157][157][157][157][157]";:NEXT
92 PRINT"";
93 FORT=1TO11:PRINT"[160][157]";:NEXT
95 PRINT"[160][160][160][160][160][160]";
100 PRINT"[160][157][160][157][160][157][160][157][160][157][160][157][160][157][160][157][160]";
110 X=3:Y=3:V=1130
120 FORPL=1TO10
125 POKE198,0
130 GOSUB1000
140 POKE1024+Y*40+X,95:POKE55296+Y*40+X,6:IFX=19ANDY=19THEN2000
150 PRINT"[157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][205][207][214][197]"
152 PRINT"[157][157][157][157][157][157][157][157][157][157][144][208]RESS '[209]'"
154 PRINT"[157][157][157][157][157][157][157][157][157][144]TO QUIT"
160 GETA$:J%=PEEK(JOY)
162 IFA$=""ANDJ%=127THEN160
163 IFA$="[133]"THENRUN
165 IFA$=" "ORJ%=111THENIFSP<>2THENSP=1:GOSUB1000
170 IFA$=""ORJ%=119THENIFPEEK(1024+Y*40+X+2)=160THEN160
175 IFA$=""ORJ%=119THENPOKE1024+X+Y*40,32:X=X+4:GOTO210
180 IFA$="[157]"ORJ%=123THENIFPEEK(1024+Y*40+X-2)=160THEN160
185 IFA$="[157]"ORJ%=123THENPOKE1024+X+Y*40,32:X=X-4:GOTO210
190 IFA$=""ORJ%=125THENIFPEEK(1024+(Y+2)*40+X)=160THEN160
195 IFA$=""ORJ%=125THENPOKE1024+X+Y*40,32:Y=Y+4:GOTO210
200 IFA$="[145]"ORJ%=126THENIFPEEK(1024+(Y-2)*40+X)=160THEN160
205 IFA$="[145]"ORJ%=126THENPOKE1024+X+Y*40,32:Y=Y-4:GOTO210
206 IFA$="Q"ORA$="[209]"THENGOSUB 12000
207 GOTO160
210 IFPL<11THENPOKEV,224:POKEV+1,224:POKEV+54272,3:POKEV+54272+1,3
215 V=V+40
230 NEXT:IFX=19ANDY=19THEN2000
240 SH=1:GOSUB3000:GOSUB11000:FORDL=1TO500:NEXT: REM DIE
242 SYS51459:POKE53272,(PEEK(53272)AND240)OR14
250 PRINT"[147][208]RESS [211][208][193][195][197][146] TO [208]LAY [193]GAIN."
252 PRINT"[208]RESS [209][146] TO QUIT."
260 POKE198,0:WAIT198,1:GETA$
262 IFA$=" "THENRUN
264 IFA$<>"Q"ANDA$<>"[209]"THEN260
270 GOTO5000
999 :
1000 PRINT"[144]";
1010 FORT=1TO4:FORR=1TO4
1020 PRINT"[146][145][157] [145][157] [145][157]    [157][157][157][157][157][157][157]   [157] [157] [157] [145][145][145][145][145][145]";:NEXT
1030 PRINT:PRINT"";:NEXT
1035 IFSP=1THENPOKEV,224:POKEV+1,224:POKEV+54272,3:POKEV+54273,3:V=V+40:PL=PL+2
1037 IFSP=1THENPOKEV,224:POKEV+1,224:POKEV+54272,3:POKEV+54273,3:V=V+40
1039 IFSP=1THENSP=2:IFPL>16THEN240
1040 PRINT"";
1050 FORT=1TO4:FORR=1TO4
1060 A=INT(RND(TI)*4)+1
1070 ONAGOSUB1100,1200,1300,1400
1080 NEXT
1090 PRINT:PRINT"";:NEXT:RETURN
1100 PRINT"[145][157] [145][157] [145][157] ";:RETURN
1200 PRINT"   [145][145][145][157][157]";:RETURN
1300 PRINT"[157]   [145][145][145]";:RETURN
1400 PRINT"[157] [157] [157] [145][145][145][145][145][145]";:RETURN
1999 :
2000 :
2050 SH=0:GOSUB3000:GOSUB10000: REM WIN
2060 GOTO242
3000 REM PLOT SHAPE
3010 POKE249,224:POKE250,204
3020 POKE251,0:POKE252,64
3030 POKE253,0:POKE254,0
3040 POKE255,SH
3050 SYS51462:SYS51459:POKE53272,(PEEK(53272)AND240)OR14
3060 RETURN
3070 :
5000 REM RETURN TO LS
5010 OPEN15,8,15,"R0:HELLO CONNECT=HELLO CONNECT":INPUT#15,ER:CLOSE15
5020 IFER<>63THENPRINT"[147]":END
5025 POKE53272,21:POKE55,.:POKE56,160
5030 LOAD"HELLO CONNECT",8
10000 REM WIN SOUND
10010 FORAG=1TO2
10011 FORDL=1TO100:NEXT
10012 POKE S+1,14
10020 POKE S+5,3
10030 POKE S+6,240
10040 POKE S+24,15
10050 POKE S+4,17
10060 FORD=6TO10
10070 FORD1=1TO12STEPSIN(D)
10080 POKES+1,4*D1:POKES+4,17
10090 NEXT
10100 NEXTD
10110 POKE S+4,16
10120 FORDL=1TO10:NEXT
10150 POKE S+1,14
10160 POKE S+5,3
10170 POKE S+6,240
10180 POKE S+24,15
10190 POKE S+4,17
10200 FORD=6TO10
10210 FORD1=1TO12STEPLOG(D)
10220 POKES+1,4*D1:POKES+4,17
10230 NEXT
10240 NEXTD
10250 POKE S+4,16
10300 NEXT AG
10310 RETURN
10320 :
11000 REM LOSE SOUND
11005 FORAG=1TO3
11010 POKE S+1,14
11020 POKE S+5,3
11030 POKE S+6,255-15
11040 POKE S+24,15
11050 POKE S+4,17
11060 FORD=11TO110STEP8:POKES+1,D:POKES+4,63:POKES+1,255-D:POKES+4,17:NEXT
11070 POKE S+4,16
11080 NEXT AG
11090 RETURN
12000 REM QUIT?
12010 PRINT"  [193]RE YOU SURE YOU WANT TO QUIT ([217]/[206])?[144]"
12020 POKE198,0:WAIT198,1:GETA$
12030 IFA$="Y"ORA$="[217]"THEN5000
12040 IFA$="N"ORA$="[206]"THEN12060
12050 GOTO12020
12060 PRINT"                                      ";
12070 RETURN